Private Sub btnȸ_Click()

    Dim ˻׸ As ListItem
    
    If txtŰ.Value = "" Then
    
        txtŰ.SetFocus
    
    Else
    
        Set ˻׸ = lvw.FindItem(txtŰ.Value, 1)
        
        If ˻׸ Is Nothing Then
    
            lvw.SelectedItem.Selected = False
            txtŰ.Value = ""
            txtŰ.SetFocus
            
        Else
        
            With ˻׸
                .Selected = True
                .EnsureVisible
            End With
            
        End If
    
    End If
    
End Sub
